library(Rfacebook)
token <- ""
posts <- getPage(page = "",
                 token = token, 
                 n = 800,
                 reactions = F,
                 since = "", 
                 until = "")
write.csv2(posts, paste0("coleta", Sys.Date(), ".csv"))

